home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / AMIGABase.DEF next >
Text File  |  1988-03-15  |  683b  |  29 lines
  1. (********************************************************************************
  2.  
  3. Name         : AMIGABase.DEF
  4. Version      : 1.0
  5. Purpose      : Interface to AMIGABase
  6. Authors      : cn/jr/ms/red
  7. Modified     : 12.3.86  20:27  cn
  8. State        : should be ok
  9. Requirements : 
  10.  
  11. ********************************************************************************)
  12.  
  13. DEFINITION MODULE AMIGABase;
  14.  
  15. FROM SYSTEM IMPORT ADDRESS;
  16.  
  17. TYPE Regs = RECORD
  18.              d: ARRAY[0..7] OF LONGINT;
  19.              a: ARRAY[0..7] OF LONGINT;
  20.            END;
  21.  
  22. PROCEDURE LibCall(libBase: ADDRESS; offset: LONGINT; VAR r:Regs);
  23.  
  24. PROCEDURE ExecBase(): ADDRESS;
  25.  
  26. PROCEDURE ExecOpenLib(): LONGINT;
  27.  
  28. END AMIGABase.
  29.